Public Class propiedadesDePlantilla


    Private _tipoSolucion As String


    Public Property tipoSolucion() As String
        Get
            Return _tipoSolucion
        End Get
        Set(ByVal value As String)
            _tipoSolucion = value
        End Set
    End Property



    Private _nombrePagina As String


    Public Property nombrePagina() As String
        Get
            Return _nombrePagina
        End Get
        Set(ByVal value As String)
            _nombrePagina = value
        End Set
    End Property



    Private _extensionSalida As String


    Public Property extensionSalida() As String
        Get
            Return _extensionSalida
        End Get
        Set(ByVal value As String)
            _extensionSalida = value
        End Set
    End Property

    Private _directorioArchivo As String


    Public Property directorioArchivo() As String
        Get
            Return _directorioArchivo
        End Get
        Set(ByVal value As String)
            _directorioArchivo = value
        End Set
    End Property
    Private _ubicacionFisica As String


    Public Property ubicacionFisica() As String
        Get
            Return _ubicacionFisica
        End Get
        Set(ByVal value As String)
            _ubicacionFisica = value
        End Set
    End Property


    Public Sub New(ByVal cadena As String)

        Try
            Dim ar() As String
            ar = cadena.Split(";")
            Me.nombrePagina = ar(0)
            Me.directorioArchivo = ar(1)
            Me.extensionSalida = ar(2)
            Me.tipoSolucion = ar(3)


        Catch ex As Exception
            MsgBox("revise la plantilla, la propiedad description debe ....")

        End Try
      
    End Sub

End Class
